home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / bytesc88.arc / ITOAB.C < prev    next >
Text File  |  1987-10-04  |  512b  |  22 lines

  1. #define NOCCARGC  /* no argument count passing */
  2. /*
  3. ** itoab(n,s,b) - Convert "unsigned" n to characters in s using base b.
  4. **                NOTE: This is a non-standard function.
  5. */
  6. itoab(n, s, b) int n; char *s; int b; {
  7.   char *ptr;
  8.   int lowbit;
  9.   ptr = s;
  10.   b >>= 1;
  11.   do {
  12.     lowbit = n & 1;
  13.     n = (n >> 1) & 32767;
  14.     *ptr = ((n % b) << 1) + lowbit;
  15.     if(*ptr < 10) *ptr += '0'; else *ptr += 55;
  16.     ++ptr;
  17.     } while(n /= b);
  18.   *ptr = 0;
  19.   reverse (s);
  20.   }
  21.  
  22.